program string_t
    implicit none
    INTEGER a
    a = 2
    WRITE(*,*) sign(a, -100)
  end program string_t
  